home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / prodpack.zip / DB4PPSRC.EXE / _DLCCEXT.PRG < prev    next >
Text File  |  1993-05-04  |  694b  |  36 lines
  1. PROCEDURE _DLCCExt
  2. PARAMETERS pcPanel, pcCatName
  3. *----------------------------------------------------------------------------
  4. * NAME
  5. *   _DLCCExt - Catalog Exit Program
  6. *
  7. * DESCRIPTION
  8. *
  9. * PARAMETERS
  10. *   pcPanel    = 
  11. *   pcCatName  = 
  12. *
  13. *----------------------------------------------------------------------------
  14.   SET CATALOG OFF
  15.   SET CATALOG TO
  16.  
  17.   cDBBLib = "DBBDSGN"
  18.   lError = .F.
  19.   ON ERROR lError = .T.
  20.   SET LIBRARY TO ( cDBBLib )
  21.   IF lError
  22.     lError = .F.
  23.     SET LIBRARY TO HOME() + cDBBLib
  24.     IF lError
  25.       DO _Err_Box WITH [DBB not installed correctly]
  26.     ENDIF
  27.   ENDIF
  28.   ON ERROR
  29.  
  30. RETURN
  31. *-- EOP: _DLCCExt WITH pcPanel, pcCatName
  32.  
  33.  
  34.  
  35. 
  36.